home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / COMPTOOL / MCI / GLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-11-29  |  1008 b   |  31 lines
  1. Attribute VB_Name = "Module1"
  2. ' Public Constants
  3. Public Const conMCIAppTitle = "MCI Control Application"
  4.  
  5. ' These constants are defined in mmsystem.h.
  6. Public Const conMCIErrInvalidDeviceID = 30257
  7. Public Const conMCIErrDeviceOpen = 30263
  8. Public Const conMCIErrCannotLoadDriver = 30266
  9. Public Const conMCIErrUnsupportedFunction = 30274
  10. Public Const conMCIErrInvalidFile = 30304
  11.  
  12. #If Win32 Then
  13.     Declare Function GetFocus Lib "User32" () As Long
  14. #Else
  15.     Declare Function GetFocus Lib "User" () As Integer
  16. #End If
  17.  
  18. ' Public variables
  19. Public DialogCaption As String
  20.  
  21. Public Sub DisplayWarning()
  22.     Dim WMsg As String
  23.     Dim WTitle As String
  24.    
  25.     WMsg = "When you insert an audio CD in Windows 95 or Windows NT, a default audio CD player may open and begin playing the audio CD automatically. If this occurs, select the default audio CD player from the Windows Taskbar and close it before proceeding."
  26.     WTitle = "Warning"
  27.     
  28.     MsgBox WMsg, vbOKOnly, WTitle
  29. End Sub
  30.  
  31.